home *** CD-ROM | disk | FTP | other *** search
- #!/usr2/local/bin/perl -w
-
- $| = 1;
- print "Content-type: image/gif\n\n";
-
- open GP, "| /usr/bin/gnuplot " .
- "| /usr2/local/netpbm/bin/ppmtogif -interlace";
-
- print GP <<GPH;
- set terminal pbm color # select the ppm device driver
- set size 0.5,0.5 # render at half the normal size
- plot sin(x) # a very simple gnuplot program
- GPH
-
- close GP;
-
- 1;
-
-